unit CGIFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, 
  DBTables, Db, DBWeb;

type
  TWebModule1 = class(TWebModule)

    QueryEmployee: TQuery;
    QueryTableProducer: TQueryTableProducer;

    procedure WebModule1WebActionItem1Action(
                                      Sender: TObject;
                                      Request: TWebRequest; 
                                      Response: TWebResponse; 
                                      var Handled: Boolean);

    procedure WebModule1WebActionItem2Action(
                                      Sender: TObject;
                                      Request: TWebRequest; 
                                      Response: TWebResponse; 
                                      var Handled: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WebModule1: TWebModule1;

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(
                                                           Sender: TObject;
                                                           Request: TWebRequest; 
                                                           Response: TWebResponse; 
                                                           var Handled: Boolean);

var Page:TStringList; i:integer;
begin
  Page:=TStringList.Create;
  with Page do begin
    Add('<HTML>');
    Add('Hello Delphi CGI');
    Add('</HTML>');
  end;
  Response.Content:=Page.Text;
  Handled:=True;
end;

procedure TWebModule1.WebModule1WebActionItem2Action(
                                                           Sender: TObject;
                                                           Request: TWebRequest; 
                                                           Response: TWebResponse; 
                                                           var Handled: Boolean);

var N:string;
begin
   N:=request.GetFieldByName('empName');
   if n<>'' then begin
     QueryEmployee.Active:=False;
     QueryEmployee.SQL.Add('SELECT * FROM  EMPLOYEE 
                        WHERE LASTNAME LIKE ''%'+N+'''%');
     QueryEmployee.Active:=True;
   end;
end;

end.
